QuickReport 3 - export do RTF

Otázka od: Petr Reichl

2. 6. 2004 8:50

Zdravim vsechny ...

Mam tiskovou sestavu v QuickReport 3 Professional (Delphi 5) a exportuji
ji do RTF. Problem tohoto exportu je ten, ze kdyz vysledny rtf soubor
otevru ve Wordu, jedna moje stranka konci v pulce Wordove stranky. Pokud
ten report poslu normalne z me aplikace na tiskarnu je to v pohode na
celou stranku jak ma byt.

Nesetkal jste se nekdo s necim takovym?

Zkousel jsem dokumentu ve Wordu zvetsit font az na velikost, kdy
dokument byl krasne pres celou stranku. Zkusil jsem se tedy vydat touto
cestou.

V udalosti OnBeforePrint jsem pro export zkusil projet vsechny
komponenty TQRDBText tak, abych jim mohl zvetsit pismo. Problem je, ale
v tom, ze mi metoda .ComponentCount vraci 0, takze nemuzu pristoupit k
jednotlivym TQRDBText komponentam v tiskove sestave ...

for i := 0 to Sender.ComponentCount - 1 do
begin
if (Sender.Components[i] is TQRDBText) then
...

end;

Sender je TCustomQuickRep ...

Nevite nekdo jak na to?

S pozdravem,

Petr Reichl

Odpovedá: Karel Rys

2. 6. 2004 10:02

Petr Reichl dne 2 Jun 2004 v 9:50:

> for i := 0 to Sender.ComponentCount - 1 do
> begin
> if (Sender.Components[i] is TQRDBText) then
> ...
>
> end;

Ahoj,

pouzivam neco takoveho:

procedure tdmSestavy.PRELOZSESTAVU(r:tQuickRep);
var i,a,b:integer;
     ba:tQRCustomBand;
begin
if r=nil then exit;
for i:=0 to r.ControlCount-1 do begin
  ba:=r.Controls[i] as tQRCustomBand;
  for a:=0 to ba.ControlCount-1 do begin
   b:=ba.Controls[a].tag;
   if (b<>0)and(ba.Controls[a] is tQRLabel) then begin
    ...
   end;
  end;
end;
end;

Karel Rys